(require (planet schematics/schemeunit:3))

(check-equal? 10 10)
(check-equal? (+ 5 3 4) 12)
(check-equal? (- 9 1) 8)
(check-equal? (/ 6 3) 2)
(check-equal? (+ (* 2 4) (- 4 6)) 6)
(define a 3)
(define b (+ a 1))
(check-equal? b 4)
(check-equal? (+ a b (* a b)) 19)
(check-equal? (= a b) #f) 
(define (f1 a b)(if (and (> b a) 
                         (< b (* a b)))
                    b
                    a)
  )
(check-equal? (f1 a b) b)
(define (f2 a b) (cond ((= a 4) 6)
                       ((= b 4) (+ 6 7 a))
                       (else 25))
  )
(check-equal? (f2 a b) 16)
(define (f3 a b) (+ 2 (if (> b a) b a)))
(check-equal? (f3 a b) 6)
(define (f4 a b) (* (cond ((> a b) a)
                          ((< a b) b)
                          (else -1))
                    (+ a 1))
  )
(check-equal? (f4 a b) 16)  